home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / TECHNICA / AUTOCAD / H108.ZIP / JUL91.ZIP / TIP678.LSP < prev    next >
Lisp/Scheme  |  1991-08-27  |  796b  |  24 lines
  1. ;TIP678.LSP   Swap Text   (c)1991, Igor Gurevich
  2.  
  3. (defun C:ST (/ ECHO SSET1 ENT1 TEST1
  4.     POSITION BASE1 SSET2 ENT2 TEST2)
  5.   (setq ECHO (getvar "CMDECHO"))
  6.   (setvar "CMDECHO" 0)
  7.   (setq SSET1 (entsel "\nFirst line.."))
  8.   (setq ENT1 (entget (car SSET1)))
  9.   (setq TEST1 (assoc 11 ENT1))
  10.   (if (equal TEST1 '(11 0.0 0.0 0.0))
  11.    (setq POSITION 10)(setq POSITION 11))
  12.   (setq BASE1(cdr(assoc POSITION ENT1)))
  13.   (setq SSET2(entsel "\nSecond line.."))
  14.   (setq ENT2 (entget (car SSET2)))
  15.   (setq TEST2 (assoc 11 ENT2))
  16.   (if (equal TEST2 '(11 0.0 0.0 0.0))
  17.    (setq POSITION 10)(setq POSITION 11))
  18.   (setq BASE2 (cdr(assoc POSITION ENT2)))
  19.   (command "MOVE" SSET1 "" BASE1 BASE2)
  20.   (command "MOVE" SSET2 "" BASE2 BASE1)
  21.   (redraw (car SSET1))
  22.   (setvar "CMDECHO" ECHO)(princ)
  23. )
  24.